' Circle
' This program demonstrates the CIRCLE statement.

CLS

WHILE UCASE$(dummy$) <> "Q"
    LOCATE 15, 1
    INPUT "Please enter the column number:  ", colNum%
    INPUT "     Please enter the row number:  ", rowNum%
    INPUT "             Please enter the radius:  ", radius%
    CIRCLE (colNum%, rowNum%), radius%
    INPUT "Press Return to continue, or enter Q to quit: ", dummy$
    CLS
WEND